home *** CD-ROM | disk | FTP | other *** search
/ PCMania 19 / PCMania19.iso / Jogos em Flash / ESTRATEGIA / BATTLE_SHIPS.SWF / scripts / frame_52 / DoAction.as
Text File  |  2003-11-17  |  567b  |  34 lines
  1. cq = c;
  2. if(cq >= "2")
  3. {
  4.    cq = "1";
  5. }
  6. x = eval("c" add sd add "x");
  7. while(x >= "0")
  8. {
  9.    y = "0";
  10.    while(y < "20")
  11.    {
  12.       if(eval("p" add x add "_" add y) == sd + "10")
  13.       {
  14.          tpx = x;
  15.          tpy = y;
  16.          rot = "2" + "2" * ("1" < sd);
  17.          while(rot)
  18.          {
  19.             call("c2");
  20.             rot -= "1";
  21.             call("rotate");
  22.          }
  23.          cq -= "1";
  24.          if("0" >= cq)
  25.          {
  26.             x = - "100";
  27.             y = "100";
  28.          }
  29.       }
  30.       y += "1";
  31.    }
  32.    x -= "1";
  33. }
  34.